CONST HORIZONTAL = 2, VERTICAL = 1

SCREEN _NEWIMAGE(16,16,7)

FOR x = 0 TO 14 STEP 2
  FOR y = 0 TO 14 STEP 2
    PSET (x,y), CHOOSE( INT(RND*2)+1, 3, 14) 
  NEXT y
NEXT x

_DELAY 1

➔again:

  axis = INT(RND*2) + 1
  this_index = INT(RND*4) * 2
  increment = CHOOSE( INT(RND*2)+1, 1, -1)

  FOR l = 1 TO 10
      IF axis = VERTICAL THEN
          SCROLL (this_index,0)-(this_index,15), 0, increment, TRUE
      ELSE
          SCROLL (0,this_index)-(15,this_index), increment, 0, TRUE
      END IF    
      _DELAY 0.25
  NEXT l


GOTO ➔again